home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / util / wb / assmas.lha / AssignMaster / Install < prev    next >
Text File  |  1997-12-20  |  3KB  |  87 lines
  1. (welcome "Welcome to the installation utility for AssignMaster.")
  2.  
  3. (if (= (askbool (prompt "A T T E N T I O N !\n\n"
  4.                         "An older version of AssignMaster should be completely "
  5.                         "removed (including all save files) before installing new "
  6.                         "Version 2.0(beta).\n\n"
  7.                         "Continue installing AssignMaster?")
  8.                 (help @askbool-help)
  9.                 (default 1)
  10.         ) 0)
  11.   (
  12.     (exit (cat "\n\nUser break installation procedure. "
  13.                "No files are copied.")
  14.           (quiet)
  15.     )
  16.   )
  17. )
  18.  
  19. (set #destination_prg (askdir (prompt "Please select destination drawer "
  20.                                       " for AssignMaster executable.")
  21.                               (help @askdir-help)
  22.                               (default "SYS:Tools")
  23.                       )
  24. )
  25.  
  26. (set #destination_doc (askdir (prompt "Choose the destination for "
  27.                                       "the documentation file.")
  28.                               (help @askdir-help)
  29.                               (default "HELP:")
  30.                       )
  31. )
  32.  
  33.  
  34. (copyfiles (prompt "Copy executable...")
  35.            (help @copyfiles-help)
  36.            (source "AssignMaster")
  37.            (dest #destination_prg)
  38.            (files)
  39.            (confirm)
  40.            (infos)
  41. )
  42.  
  43. (copyfiles (prompt "Copy english documentation...")
  44.            (help @copyfiles-help)
  45.            (source "AssignMaster.GUIDE")
  46.            (dest #destination_doc)
  47.            (newname "AssignMaster.guide")
  48.            (files)
  49.            (confirm)
  50.            (infos)
  51. )
  52.  
  53.  
  54. (if (= 1 (askbool (prompt "The following function is only useable for later "
  55.                           "installation of AssignMaster in the 'startup-sequence'.\n\n"
  56.                           "Should the current assign-list saved now?\n\n"
  57.                           "If you not sure, select \"No\".")
  58.                   (help @askbool-help)
  59.                   (default 0)
  60.                   (choices "Ja" "Nein")
  61.          )
  62.     )
  63.   (
  64.     (set #savefile (askfile (prompt "Select path and name of savefile now.")
  65.                             (help @askfile-help)
  66.                             (default #destination_prg)
  67.                    )
  68.     )
  69.     (set #amcommand (cat (tackon #destination_prg "AssignMaster")
  70.                          " BACKUP=\""
  71.                          #savefile
  72.                          "\"")
  73.     )
  74.     (run #amcommand (prompt (cat "Saving current assign list into file:\n"
  75.                                  #savefile)
  76.                     )
  77.                     (help @run-help)
  78.                     (confirm)
  79.     )
  80.   )
  81. )
  82.  
  83. (exit (cat "Installation complete.\n\n")
  84.       (quiet)
  85. )
  86.  
  87.